(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     36243,        994]
NotebookOptionsPosition[     34952,        967]
NotebookOutlinePosition[     35394,        985]
CellTagsIndexPosition[     35351,        982]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\:76ee\:6807", ":", "\:8f93\:5165\:4e24\:4e2a\:8fb9\:957f"}], 
    "\:ff1a", 
    RowBox[{"\:8f93\:5165VR", " ", "\:8f93\:51fadeficient", " ", "angle"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\:8981\:6c42", ":", "1"}], ")"}], " ", 
     "\:4e3b\:51fd\:6570Deficient", " ", 
     "\:53ef\:4ee5\:53e6\:5b58\:7a0b\:5e8f\:5305", " ", 
     RowBox[{"Deficient", ".", "wdx"}]}], "\:ff0c", 
    "\:53ef\:4ee5\:5355\:72ec\:4e8e\:5176\:4ed6\:7a0b\:5e8f\:8fd0\:884c"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"    ", 
     RowBox[{":", "2"}], ")"}], " ", 
    RowBox[{
    "\:51fd\:6570\:53ef\:4ee5\:4f9d\:8d56vertice", ".", 
     "wdx\:5305\:4e2d\:51fd\:6570\:548c\:6570\:636e"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"--", 
          RowBox[{"--", 
           RowBox[{"--", 
            RowBox[{"--", 
             RowBox[{"--", 
              RowBox[{"--", 
               RowBox[{"--", 
                RowBox[{"--", 
                 RowBox[{"--", 
                  RowBox[{"--", 
                   RowBox[{"-", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"vertice", "--"}], "--"}], 
                    "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], 
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"--", 
          RowBox[{"--", 
           RowBox[{"--", 
            RowBox[{"--", 
             RowBox[{"--", 
              RowBox[{"--", 
               RowBox[{"--", 
                RowBox[{"--", 
                 RowBox[{"--", 
                  RowBox[{"--", 
                   RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{
                    "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\
}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\:8f85\:52a9\:51fd\:65701", "\:ff1a", " ", 
    RowBox[{"\:8ddd\:79bb", " ", 
     RowBox[{"MVdistance", "[", 
      RowBox[{"VR_", ",", "a_", ",", "b_"}], "]"}], "  ", "\:8f93\:5165"}], 
    "\:ff1a", 
    RowBox[{"VR", " ", "\:516d\:8282\:70b9\:5750\:6807"}], "\:ff0c", " ", "a",
     "\:ff0c", 
    RowBox[{"b", " ", "\:8282\:70b9\:7f16\:53f7", " ", "\:8f93\:51fa"}], 
    "\:ff1a", 
    RowBox[{"\:95f5\:6c0f\:8ddd\:79bb", " ", "\:4f9d\:8d56"}], "\:ff1a", 
    "\:65e0"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\:8f85\:52a9\:51fd\:65702", "\:ff1a", " ", 
    RowBox[{
     RowBox[{"Vol", "[", 
      RowBox[{"VR_", ",", 
       RowBox[{"{", 
        RowBox[{"a_", ",", "b_", ",", "c_", ",", "..."}], "}"}], ",", "E"}], 
      "]"}], "  ", "\:8f93\:5165"}], "\:ff1a", 
    RowBox[{"VR", " ", "\:516d\:8282\:70b9\:5750\:6807"}], "\:ff0c", " ", "a",
     "\:ff0c", "b", ",", 
    RowBox[{
     RowBox[{
     "...", " ", "\:8282\:70b9\:7f16\:53f7", " ", "E", " ", "\:6b27\:5f0f"}], 
     "=", "1"}], "\:ff0c", 
    RowBox[{"\:6d1b\:4f26\:5179", "=", 
     RowBox[{"0", " ", "\:8f93\:51fa"}]}], "\:ff1a", 
    RowBox[{"n\:7ef4\:4f53\:79ef", " ", "\:4f9d\:8d56"}], "\:ff1a", "CMM"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\:8f85\:52a9\:51fd\:65702", "\:ff1a", " ", 
    RowBox[{
     RowBox[{"CMM", "[", 
      RowBox[{"VR_", ",", 
       RowBox[{"{", 
        RowBox[{"a_", ",", "b_", ",", "c_", ",", "..."}], "}"}]}], "]"}], "  ",
      "\:8f93\:5165"}], "\:ff1a", 
    RowBox[{"VR", " ", "\:516d\:8282\:70b9\:5750\:6807"}], "\:ff0c", " ", "a",
     "\:ff0c", "b", ",", 
    RowBox[{"...", " ", "\:8282\:70b9\:7f16\:53f7", " ", "\:8f93\:51fa"}], 
    "\:ff1a", 
    RowBox[{"n", " ", "Caley", " ", "Matrix", " ", "\:4f9d\:8d56"}], "\:ff1a",
     "\:65e0"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"--", 
          RowBox[{"--", 
           RowBox[{"--", 
            RowBox[{"--", 
             RowBox[{"--", 
              RowBox[{"--", 
               RowBox[{"--", 
                RowBox[{"--", 
                 RowBox[{"--", 
                  RowBox[{"--", 
                   RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"-", 
                    RowBox[{"-", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{
                    "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\
}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\:8f85\:52a9\:51fd\:6570", "\:ff1a"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\:8f85\:52a9\:51fd\:65701", "\:ff1a", 
    RowBox[{
     RowBox[{"FDNormal", "[", 
      RowBox[{"vid_", ",", "Vertex_", ",", "Sid_", ",", "Tid_"}], "]"}], " ", 
     "\:8f93\:5165"}], "\:ff1a", 
    RowBox[{"simplex", " ", "Sid"}], ",", " ", 
    RowBox[{"tetrahedron", " ", "Tid", " ", "\:8f93\:51fa"}], "\:ff1a", 
    "\:56db\:7ef4\:6cd5\:77e2"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"--", 
          RowBox[{"--", 
           RowBox[{"--", 
            RowBox[{"--", 
             RowBox[{"--", 
              RowBox[{"--", 
               RowBox[{"--", 
                RowBox[{"--", 
                 RowBox[{"--", 
                  RowBox[{"--", 
                   RowBox[{"-", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"vertice", "--"}], "--"}], 
                    "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], 
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"--", 
          RowBox[{"--", 
           RowBox[{"--", 
            RowBox[{"--", 
             RowBox[{"--", 
              RowBox[{"--", 
               RowBox[{"--", 
                RowBox[{"--", 
                 RowBox[{"--", 
                  RowBox[{"--", 
                   RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{
                    "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\
}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"\:4e3b\:8981\:6570\:636e\:63a5\:53e3", ":", " ", "1"}], ")"}], 
    " ", "VR", " ", "\:516d\:8282\:70b9\:5750\:6807", " ", 
    RowBox[{"(", "v6\:672a\:786e\:5b9a\:524d\:4e3a0", ")"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"               ", "2", ")"}], " ", "vid", "  ", "VR", " ", 
    "\:4e2d\:7ed3\:70b9\:7f16\:53f7", " ", 
    RowBox[{"(", "v6\:672a\:786e\:5b9a\:524d\:4e3a0", ")"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"               ", "3", ")"}], " ", 
     RowBox[{"SYM", "[", 
      RowBox[{"[", 
       RowBox[{"inputs", ",", "edges", ",", "vertices"}], "]"}], "]"}], " ", 
     "l1"}], ",", "l2", ",", "l3", ",", "l4", ",", 
    "l5\:5bf9\:5e94\:7684edge"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"               ", "4", ")"}], " ", "Sid", " ", "simplices", " ", 
    "\:7f16\:53f7", " ", "\:8c03\:7528\:8282\:70b9\:7f16\:53f7\:65b9\:6cd5", 
    " ", 
    RowBox[{"Map", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"vid", "/.", 
        RowBox[{"#", "\[Rule]", "Nothing"}]}], "&"}], ",", "Sid"}], "]"}]}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"--", 
          RowBox[{"--", 
           RowBox[{"--", 
            RowBox[{"--", 
             RowBox[{"--", 
              RowBox[{"--", 
               RowBox[{"--", 
                RowBox[{"--", 
                 RowBox[{"--", 
                  RowBox[{"--", 
                   RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"-", 
                    RowBox[{"-", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{
                    "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\
}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\:6570\:636e\:63a5\:53e3", ":"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQAWIQvef/yyWHa984OhWJrALR97/OXHwDSEfkfAPT2yTe
rATRJY53N4DoTRNWbQPRHOLLH4Ho9Pynz0D0Sany9yD66FQX1psgdWV1YJr9
eNVDEH1l5YnHIFrO3egliF735v8vEB1yrEjsFpA2KnBUBNH7pDhdQLTxxDuh
INpv6t3Wh0C6+g/zNBDtGi/wCEQ/TZ0LprU6WU2eA+n94qfBtFyQtz+IZlv0
PwpE7zP69Iqh7o3jFMUzv0H09EvRLIxA+oH0YWMQXZVRYQWi+8T/OIHoDrVQ
LxDN1JkCpsUUHPxAdLq9iT+Ilgvkk3NqeeNYfyRRHkQDAL3QqhU=
  "],
 CellLabel->
  "In[523]:=",ExpressionUUID->"65ee0117-14f3-4ae3-8861-cac9d24b3298"],

Cell[BoxData[
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellLabel->
  "In[524]:=",ExpressionUUID->"214a13b3-6056-46e7-b5e7-03747e8f7e53"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input",
 CellLabel->
  "In[525]:=",ExpressionUUID->"f0a3a253-f9b5-449e-91f2-8398d13da774"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tempfile13", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<vertice.wdx\>\""}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tempfile14", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<Deficient.wdx\>\""}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Get", "[", "tempfile13", "]"}]}], "Input",
 CellChangeTimes->{{3.8241080971889105`*^9, 3.8241081028534575`*^9}, {
  3.82416941674977*^9, 3.8241694302794523`*^9}},
 CellLabel->
  "In[526]:=",ExpressionUUID->"fd93ade9-d0de-42d3-83d4-45c238826ef7"],

Cell[CellGroupData[{

Cell[BoxData["Sid"], "Input",
 CellChangeTimes->{{3.824159636876379*^9, 3.824159637188099*^9}},
 CellLabel->
  "In[529]:=",ExpressionUUID->"c4ccbcad-eeb5-4004-af11-d49450d166ca"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6", ",", "4", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{
  3.8241596375555167`*^9, 3.824160338121295*^9, 3.824163207353717*^9, 
   3.824163418708686*^9, 3.824163573998801*^9, 3.8241641275192795`*^9, 
   3.8241663925492744`*^9, {3.8241665408311014`*^9, 3.824166569247843*^9}, {
   3.8241666448701277`*^9, 3.824166673264396*^9}, 3.824166906338056*^9, 
   3.8241672332678823`*^9, 3.82416799715266*^9, 3.8241684125417004`*^9, {
   3.8241685074801054`*^9, 3.8241685218481865`*^9}, 3.824168676200495*^9, 
   3.824168821987067*^9, 3.824168866986988*^9, {3.8241689022153645`*^9, 
   3.8241689182426534`*^9}, {3.824169044619028*^9, 3.824169097043369*^9}, 
   3.8241693503980455`*^9, {3.8241693963321266`*^9, 3.8241694030852413`*^9}, 
   3.8241694675364017`*^9, {3.8241695619852285`*^9, 3.8241695692865267`*^9}, 
   3.8254820924296923`*^9, 3.8254825029894342`*^9, 3.825482941513055*^9, {
   3.825482987966983*^9, 3.82548300517603*^9}, {3.825483460492627*^9, 
   3.8254834691597075`*^9}, 3.8254837679078283`*^9, 3.8255666683622117`*^9, 
   3.8265764981269646`*^9, 3.8274379800495462`*^9, 3.827438106490983*^9},
 CellLabel->
  "Out[529]=",ExpressionUUID->"1565d3d6-fe6e-49fc-ab32-f89221aa6f8e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ge", "=", 
   RowBox[{"DiagonalMatrix", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{
  3.824108209111845*^9, {3.824159456871523*^9, 3.8241594602173786`*^9}, {
   3.824159772262341*^9, 3.8241598291506734`*^9}, {3.8241603222275057`*^9, 
   3.8241603278003483`*^9}, {3.82548214653424*^9, 3.825482148617756*^9}},
 CellLabel->
  "In[530]:=",ExpressionUUID->"b36eafd4-6764-470f-9a72-e02294891e3e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"FDNormal", "[", 
   RowBox[{"vid_", ",", "VR_", ",", "Sid_", ",", "Tid_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"S", ",", "T", ",", "x", ",", "V", ",", 
      RowBox[{"ge", "=", 
       RowBox[{"DiagonalMatrix", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], "]"}]}], 
      ",", "c", ",", "inv"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"inv", "=", 
       RowBox[{"VR", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"6", ",", "4", ",", "2"}], "}"}], ",", "Sid"}], "]"}], 
          "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ";"}], 
     "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"inv", "=", "VR"}], ";", "\[IndentingNewLine]", 
     RowBox[{"T", "=", 
      RowBox[{"vid", "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Sid", "\[Rule]", "Nothing"}], ",", 
         RowBox[{"Tid", "\[Rule]", "Nothing"}]}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"S", "=", 
      RowBox[{"vid", "/.", 
       RowBox[{"{", 
        RowBox[{"Sid", "\[Rule]", "Nothing"}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"T", "=", 
      RowBox[{"Sort", "[", 
       RowBox[{"T", ",", "Less"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"x", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"inv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"vid", ",", "#"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "&"}], ",", 
        "T"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"c", "=", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"inv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"vid", ",", "#"}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "&"}], 
          ",", "S"}], "]"}], "]"}], "/", 
       RowBox[{"Length", "[", "S", "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"V", "=", 
      RowBox[{
       RowBox[{"LeviCivitaTensor", "[", "4", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"ge", ".", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "-", 
           RowBox[{"x", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{"ge", ".", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "-", 
           RowBox[{"x", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{"ge", ".", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "-", 
           RowBox[{"x", "[", 
            RowBox[{"[", "4", "]"}], "]"}]}], ")"}]}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"HeavisideTheta", "[", 
          RowBox[{"V", ".", "ge", ".", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "-", "c"}], ")"}]}], "]"}], "+",
          "1"}], ")"}]}], 
      RowBox[{"V", "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"Abs", "[", 
         RowBox[{"V", ".", "ge", ".", "V"}], "]"}], "]"}]}]}]}]}], 
   "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FDNormal1", "[", 
   RowBox[{"vid_", ",", "VR_", ",", "Sid_", ",", "Tid_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"S", ",", "T", ",", "x", ",", "V", ",", 
      RowBox[{"ge", "=", 
       RowBox[{"DiagonalMatrix", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], "]"}]}], 
      ",", "c", ",", "inv"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"inv", "=", 
      RowBox[{"VR", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"Position", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"6", ",", "4", ",", "2"}], "}"}], ",", "Sid"}], "]"}], 
         "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"inv", "=", "VR"}], ";"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"T", "=", 
      RowBox[{"vid", "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Sid", "\[Rule]", "Nothing"}], ",", 
         RowBox[{"Tid", "\[Rule]", "Nothing"}]}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"S", "=", 
      RowBox[{"vid", "/.", 
       RowBox[{"{", 
        RowBox[{"Sid", "\[Rule]", "Nothing"}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"T", "=", 
      RowBox[{"Sort", "[", 
       RowBox[{"T", ",", "Less"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"x", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"inv", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"Position", "[", 
             RowBox[{"vid", ",", "#"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "&"}], ",", 
        "T"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"c", "=", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"inv", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"Position", "[", 
               RowBox[{"vid", ",", "#"}], "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "&"}], 
          ",", "S"}], "]"}], "]"}], "/", 
       RowBox[{"Length", "[", "S", "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"V", "=", 
      RowBox[{
       RowBox[{"LeviCivitaTensor", "[", "4", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"ge", ".", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "-", 
           RowBox[{"x", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{"ge", ".", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "-", 
           RowBox[{"x", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}], ")"}], ".", 
       RowBox[{"(", 
        RowBox[{"ge", ".", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "-", 
           RowBox[{"x", "[", 
            RowBox[{"[", "4", "]"}], "]"}]}], ")"}]}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"HeavisideTheta", "[", 
          RowBox[{"V", ".", "ge", ".", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "-", "c"}], ")"}]}], "]"}], "+",
          "1"}], ")"}]}], 
      RowBox[{"V", "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"Abs", "[", 
         RowBox[{"V", ".", "ge", ".", "V"}], "]"}], "]"}]}]}]}]}], 
   "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.8241592739067965`*^9, 3.8241593108177166`*^9}, {
   3.824159357506271*^9, 3.824159369544118*^9}, {3.824159410551363*^9, 
   3.8241594166049767`*^9}, {3.824159538680807*^9, 3.824159605783574*^9}, {
   3.8241596706251516`*^9, 3.8241596982118444`*^9}, 3.8241597696884565`*^9, {
   3.824159841792416*^9, 3.8241598863087063`*^9}, {3.824159918692362*^9, 
   3.82415996031523*^9}, {3.8241601008040123`*^9, 3.82416011650432*^9}, 
   3.824160170736684*^9, {3.8241609454516535`*^9, 3.824160968108486*^9}, 
   3.824161149981611*^9, {3.82416120606768*^9, 3.824161229832492*^9}, {
   3.824165816684445*^9, 3.8241658191087737`*^9}, {3.8241659045368757`*^9, 
   3.82416590599675*^9}, {3.8241663885536737`*^9, 3.8241663902148438`*^9}, {
   3.824166534140497*^9, 3.824166550053521*^9}, {3.8241678993097935`*^9, 
   3.8241680236971664`*^9}, {3.82416808615322*^9, 3.824168102094581*^9}, {
   3.8241681996374598`*^9, 3.824168216729914*^9}, 3.8241686545838823`*^9, {
   3.8241688164622355`*^9, 3.824168864749305*^9}, {3.824168895298087*^9, 
   3.8241689169635587`*^9}, {3.8241690005972385`*^9, 3.82416903928865*^9}, {
   3.8274378939002376`*^9, 3.8274379617812643`*^9}, {3.827438041961664*^9, 
   3.8274380903418493`*^9}},
 CellLabel->
  "In[531]:=",ExpressionUUID->"1df3ed7c-2888-4b32-ac1a-ba59867cd69d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Deficient", "[", 
   RowBox[{"vid_", ",", "Sid_", ",", "VR_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"NN", ",", 
      RowBox[{"ge", "=", 
       RowBox[{"DiagonalMatrix", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], 
        "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"NN", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"FDNormal", "[", 
            RowBox[{"vid", ",", 
             RowBox[{"VR", "[", 
              RowBox[{"[", "x", "]"}], "]"}], ",", 
             RowBox[{"Sid", "[", 
              RowBox[{"[", "x", "]"}], "]"}], ",", "#"}], "]"}], "&"}], ",", 
          RowBox[{"Sid", "/.", 
           RowBox[{
            RowBox[{"Sid", "[", 
             RowBox[{"[", "x", "]"}], "]"}], "\[Rule]", "Nothing"}]}]}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", 
          RowBox[{"Length", "[", "Sid", "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1"}], "}"}], "*", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"HeavisideTheta", "[", 
              RowBox[{"Chop", "[", 
               RowBox[{
                RowBox[{"#", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", 
                RowBox[{"#", "[", 
                 RowBox[{"[", 
                  RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "]"}], 
             ")"}]}], "*", 
           RowBox[{"ArcCosh", "[", 
            RowBox[{"Abs", "[", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ".", "ge", ".", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}]}], "&"}], ",", 
         "NN"}], "]"}]}], "//", "Total"}]}]}], "\[IndentingNewLine]", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Deficient2", "[", 
   RowBox[{"vid_", ",", "Sid_", ",", "VR_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"NN", ",", 
      RowBox[{"ge", "=", 
       RowBox[{"DiagonalMatrix", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], 
        "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"NN", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"FDNormal", "[", 
            RowBox[{"vid", ",", 
             RowBox[{"VR", "[", 
              RowBox[{"[", "x", "]"}], "]"}], ",", 
             RowBox[{"Sid", "[", 
              RowBox[{"[", "x", "]"}], "]"}], ",", "#"}], "]"}], "&"}], ",", 
          RowBox[{"Sid", "/.", 
           RowBox[{
            RowBox[{"Sid", "[", 
             RowBox[{"[", "x", "]"}], "]"}], "\[Rule]", "Nothing"}]}]}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", 
          RowBox[{"Length", "[", "Sid", "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], "*", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"-", "1"}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"HeavisideTheta", "[", 
              RowBox[{"Chop", "[", 
               RowBox[{
                RowBox[{"#", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", 
                RowBox[{"#", "[", 
                 RowBox[{"[", 
                  RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "]"}], 
             ")"}]}], "*", 
           RowBox[{"ArcCosh", "[", 
            RowBox[{"Abs", "[", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ".", "ge", ".", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}]}], "&"}], ",", 
         "NN"}], "]"}]}], "//", "Total"}]}]}], "\[IndentingNewLine]", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Deficientc", "[", 
   RowBox[{"vid_", ",", "Sid_", ",", "VR_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"NN", ",", 
      RowBox[{"ge", "=", 
       RowBox[{"DiagonalMatrix", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], 
        "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"NN", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"FDNormal", "[", 
            RowBox[{"vid", ",", 
             RowBox[{"VR", "[", 
              RowBox[{"[", "x", "]"}], "]"}], ",", 
             RowBox[{"Sid", "[", 
              RowBox[{"[", "x", "]"}], "]"}], ",", "#"}], "]"}], "&"}], ",", 
          RowBox[{"Sid", "/.", 
           RowBox[{
            RowBox[{"Sid", "[", 
             RowBox[{"[", "x", "]"}], "]"}], "\[Rule]", "Nothing"}]}]}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "1", ",", 
          RowBox[{"Length", "[", "Sid", "]"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "1"}], "}"}], "*", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"HeavisideTheta", "[", 
             RowBox[{"Chop", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}], "*", 
               RowBox[{"#", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "]"}], "]"}], 
            ")"}]}], "*", 
          RowBox[{"ArcCosh", "[", 
           RowBox[{"Abs", "[", 
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ".", "ge", ".", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "]"}]}], "&"}], ",", 
        "NN"}], "]"}]}]}]}], "\[IndentingNewLine]", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NNTable", "[", 
   RowBox[{"vid_", ",", "Sid_", ",", "VR_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"NN", ",", 
      RowBox[{"ge", "=", 
       RowBox[{"DiagonalMatrix", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], 
        "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"NN", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"FDNormal", "[", 
           RowBox[{"vid", ",", 
            RowBox[{"VR", "[", 
             RowBox[{"[", "x", "]"}], "]"}], ",", 
            RowBox[{"Sid", "[", 
             RowBox[{"[", "x", "]"}], "]"}], ",", "#"}], "]"}], "&"}], ",", 
         RowBox[{"Sid", "/.", 
          RowBox[{
           RowBox[{"Sid", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "\[Rule]", "Nothing"}]}]}], "]"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1", ",", 
         RowBox[{"Length", "[", "Sid", "]"}]}], "}"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.8241627255548296`*^9, 3.8241628110147676`*^9}, {
   3.824163013521273*^9, 3.8241630605268283`*^9}, {3.824163204005949*^9, 
   3.8241632121887293`*^9}, {3.8241635704702578`*^9, 3.824163571850992*^9}, {
   3.82416656551803*^9, 3.8241665669016857`*^9}, 3.824166670580142*^9, {
   3.8241669035863776`*^9, 3.8241669045068607`*^9}, {3.8241671471059666`*^9, 
   3.8241671660335236`*^9}, {3.824168265903454*^9, 3.8241682673594203`*^9}, {
   3.8241684879604664`*^9, 3.8241684883532825`*^9}, 3.824168520341414*^9, {
   3.8241685648762083`*^9, 3.8241685728859453`*^9}, {3.8241690525505915`*^9, 
   3.824169065920997*^9}, {3.824169203132061*^9, 3.824169272598955*^9}, {
   3.8241695601364517`*^9, 3.824169568059221*^9}, {3.8254505977929645`*^9, 
   3.8254506056248226`*^9}, {3.8254832200767784`*^9, 3.825483247617753*^9}, {
   3.825483285330823*^9, 3.825483299995688*^9}, {3.825483691398284*^9, 
   3.825483693108389*^9}, {3.8254837625687685`*^9, 3.8254837639017725`*^9}, {
   3.8254842173332853`*^9, 3.8254842327458634`*^9}, 3.8254872613339148`*^9, {
   3.8254879072242575`*^9, 3.8254879206410284`*^9}, {3.825488056411519*^9, 
   3.8254880604755325`*^9}, {3.8254886754524994`*^9, 
   3.8254886904355507`*^9}, {3.8255644848255186`*^9, 
   3.8255644861704607`*^9}, {3.8255645630107045`*^9, 3.825564580798761*^9}, 
   3.8255719223037558`*^9, 3.826576345189378*^9, 3.8265764939756694`*^9},
 CellLabel->
  "In[533]:=",ExpressionUUID->"946e5927-5495-4ce0-9fe6-955e3e798ab1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DumpSave", "[", 
   RowBox[{"tempfile14", ",", 
    RowBox[{"{", 
     RowBox[{
     "FDNormal", ",", "FDNormal1", ",", "Deficient", ",", "Deficientc"}], 
     "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.824169439063095*^9, 3.8241694659465704`*^9}, {
  3.825483458155651*^9, 3.8254834591466556`*^9}, {3.8274381012626333`*^9, 
  3.8274381036483974`*^9}},
 CellLabel->
  "In[537]:=",ExpressionUUID->"b3cc8600-9816-42ee-8596-f8b4876407c3"]
},
WindowSize->{682, 820},
WindowMargins->{{-7, Automatic}, {Automatic, 0}},
Magnification:>0.95 Inherited,
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (2021\:5e747\:670823\
\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"9b285302-08e0-46e9-b77a-cb8c437d4d7b"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 12082, 344, 491, "Input",ExpressionUUID->"65ee0117-14f3-4ae3-8861-cac9d24b3298"],
Cell[12643, 366, 156, 3, 43, "Input",ExpressionUUID->"214a13b3-6056-46e7-b5e7-03747e8f7e53"],
Cell[12802, 371, 206, 5, 43, "Input",ExpressionUUID->"f0a3a253-f9b5-449e-91f2-8398d13da774"],
Cell[13011, 378, 724, 19, 111, "Input",ExpressionUUID->"fd93ade9-d0de-42d3-83d4-45c238826ef7"],
Cell[CellGroupData[{
Cell[13760, 401, 178, 3, 28, "Input",ExpressionUUID->"c4ccbcad-eeb5-4004-af11-d49450d166ca"],
Cell[13941, 406, 1229, 19, 31, "Output",ExpressionUUID->"1565d3d6-fe6e-49fc-ab32-f89221aa6f8e"]
}, Open  ]],
Cell[15185, 428, 533, 13, 43, "Input",ExpressionUUID->"b36eafd4-6764-470f-9a72-e02294891e3e"],
Cell[15721, 443, 9286, 253, 721, "Input",ExpressionUUID->"1df3ed7c-2888-4b32-ac1a-ba59867cd69d"],
Cell[25010, 698, 9453, 253, 740, "Input",ExpressionUUID->"946e5927-5495-4ce0-9fe6-955e3e798ab1"],
Cell[34466, 953, 482, 12, 43, "Input",ExpressionUUID->"b3cc8600-9816-42ee-8596-f8b4876407c3"]
}
]
*)

